home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / earcd / phase5 / isisppc_install / install_isis next >
Text File  |  1998-01-31  |  9KB  |  199 lines
  1. ;********************************************************************************
  2. ;      ______        __   
  3. ;     /_  __/       /_/  
  4. ;      / /  ______ __   ______
  5. ;     / /  / ____// /  / ____/
  6. ;  __/ /_ _\__  // /_ _\__  /   PPC
  7. ; /_____//_____//___//_____/  
  8. ;
  9. ; $VER: Isis 0.86 (January-29-1998) 
  10. ; Installer by Robert C. Reiswig ©1997,1998 
  11. ; Isis @1997-1998 by phase5 digital products
  12. ;
  13. ; If you wish to use any part of this installer you must ask. May not be 
  14. ; integrated/placed into any other package! You many not make any changes!
  15. ; Changes, suggestions or problems: vgr@best.com
  16. ;********************************************************************************
  17. (set vernum1 (getversion "IsisPPC"))
  18. (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  19. (set isisver (cat ver1 "." rev1))
  20. (set where "ram:")
  21.  
  22. ;********************************************************************************
  23. ; Set Defaults Strings (English)
  24. ;********************************************************************************
  25. (if (= ver1 0) (set isisver ""))
  26. (set #about (cat "\n\n\nWelcome to IsisPPC " isisver "\n\nMPEG Player for CyberGraphX V3 and PowerPC with Direct CyberVision64/3D Support.\n\n©1997-1998 by phase5 digital products") )
  27. (set #needPPC "\n\nIsisPPC must have a PPC installed. The installer did not find 'libs:ppc.library, this is just a note.\n\nIf you have a PPC please press 'Proceed'.")
  28. (set #todo-prompt "\nWhat would you like to do?\n")
  29. (set #copybin " Install/Update IsisPPC") 
  30. (set #updatelibs " Install/Update Isis Libs")
  31. (set #copydocs " Copy Isis Docs") 
  32. (set #wherePPC "Where would you like to install IsisPPC? A directory called 'IsisPPC' will be created there.")
  33. (set #wheredocs "Where would you like to install the IsisPPC Docs?")
  34.  
  35. (set #wheregtlibs "Where do you wish to install gtlayout.library used by IsisPPC? The default is 'SYS:Libs'")
  36. (set #byebye (cat "\nIsisPPC Install Complete!\n\n" ))
  37.  
  38. (set #whatcdrom "What MPEG-Video CD track driver would you like to install?")
  39. (set #whatcdplace "\nWhere do you wish to install the CD track driver for the: ")
  40.  
  41. ;*********************************************************************************
  42. ; German Strings
  43. ;*********************************************************************************
  44. (if (= @language "deutsch")
  45. (
  46.  (set #about (cat "\n\n\nWillkommen zu IsisPPC " isisver "\n\nMPEG Player für CyberGraphX V3 und PowerPC mit direkter CyberVision64/3D Unterstützung.\n\n©1997-1998 by phase5 digital products") )
  47.  (set #needPPC "\n\nIsisPPC benötigt einen PPC. Der Installer konnte 'libs:ppc.library' nicht finden, dies ist nur eine Warnung.\n\nWenn Sie einen PPC haben, klicken Sie bitte auf 'Weiter'.")
  48.  (set #todo-prompt "\nWas möchten Sie tun?\n")
  49.  (set #copybin " Installieren/Updaten von IsisPPC")
  50.  (set #updatelibs " Installieren/Updaten der Isis Libs")
  51.  (set #copydocs " Kopieren der Isis Docs")
  52.  (set #wherePPC "Wo möchten Sie IsisPPC installieren? Ein Verzeichnis namens 'IsisPPC' wird erstellt.")
  53.  (set #wheredocs "Wo möchten Sie die IsisPPC Docs installieren?")
  54.  
  55.  (set #wheregtlibs "Wo möchten Sie die von IsisPPC benutzte gtlayout.library installieren? Voreingestellt ist 'SYS:Libs'")
  56.  (set #byebye (cat "\nIsisPPC Installation komplett!\n\n" ))
  57.  
  58.  (set #whatcdrom "Welchen MPEG-Video CD Treiber möchten Sie installieren?")
  59.  (set #whatcdplace "\nWo möchten Sie den CD Treiber installieren für das Laufwerk: ")
  60. )
  61. )
  62.  
  63. ;*********************************************************************************
  64. ; Welcome Message
  65. ;*********************************************************************************
  66. (message #about)  (welcome)
  67. (if (= (exists ("libs:ppc.library")) 0) (message #needPPC))
  68.  
  69. ;*********************************************************************************
  70. ; Ask what to do
  71. ;*********************************************************************************
  72. (set whattodo 15)
  73.  
  74. (set ToDo (askoptions (choices  #copybin #updatelibs #copydocs) 
  75.                       (prompt #todo-prompt)
  76.                       (help #todo-prompt)
  77.                       (default whattodo)
  78.           )
  79. ) 
  80.  
  81. ;********************************************************************
  82. ; Copy Isis bin if wanted
  83. ;********************************************************************
  84. (if (IN ToDo 0) 
  85.  (  
  86.    (set where   (askdir (prompt #wherePPC)
  87.                         (help   #wherePPC)
  88.                         (default "RAM:")
  89.                 )
  90.    )
  91.  
  92.   (if (< (exists (tackon where "IsisPPC")) 2) (makedir (tackon where "IsisPPC") (infos)) )
  93.   (set whereisis (tackon where "IsisPPC")) 
  94.  
  95.   (if (exists "IsisPPC")
  96.    (if (= (exists (tackon whereisis "IsisPPC.info")) 0)
  97.     (copylib (source "IsisPPC") (dest whereisis) (newname "IsisPPC") (infos) (optional "nofail"))
  98.     (copylib (source "IsisPPC") (dest whereisis) (newname "IsisPPC") (optional "nofail"))
  99.    )  
  100.   ) 
  101.  
  102.  
  103.  )
  104. )
  105.  
  106. ;*********************************************************************************
  107. ; Ask where & Copy lib                                                           
  108. ;*********************************************************************************
  109. (if (IN ToDo 1) 
  110.  (  
  111.   (if (> (exists "libs/gtlayout.library") 0)
  112.    (
  113.     (set wherelibs   (askdir  (prompt #wheregtlibs)
  114.                               (help   #wheregtlibs)
  115.                               (default "SYS:libs")
  116.                      )
  117.     )
  118.   
  119.     (copylib (source "libs/gtlayout.library") (dest wherelibs) (optional "nofail") ) 
  120.    )
  121.   )
  122.  
  123.   (set cdrom (askchoice  (choices "None" "JVC" "MMC" "NEC" "Philips" 
  124.                                   "Philips CDD2000" "Philips CDD2600" 
  125.                                   "Pioneer" "Plextor" "Ricoh 1420" "Sony" "Teac" "Toshiba" "Yamaha"  
  126.                                   (prompt #whatcdrom)
  127.                                   (help #whatcdrom)
  128.                                   (default 0)
  129.                          )
  130.              )     
  131.   )
  132.   
  133.   (if (= cdrom 1)  (set cd "JVC"))             (if (= cdrom 2)  (set cd "MMC"))
  134.   (if (= cdrom 3)  (set cd "NEC"))             (if (= cdrom 4)  (set cd "Philips")) 
  135.   (if (= cdrom 5)  (set cd "PhilipsCDD2000"))  (if (= cdrom 6)  (set cd "PhilipsCDD2600"))     
  136.   (if (= cdrom 7)  (set cd "Pioneer"))         (if (= cdrom 8)  (set cd "Plextor"))
  137.   (if (= cdrom 9)  (set cd "Ricoh1420"))       (if (= cdrom 10) (set cd "SONY"))
  138.   (if (= cdrom 11) (set cd "Teac"))            (if (= cdrom 12) (set cd "Toshiba"))
  139.   (if (= cdrom 13) (set cd "Yamaha"))         
  140.  
  141.   (if (> cdrom 0)
  142.    (
  143.     ;(if (= whereisis 0) (set cddefault 1) (set cddefault 0) )
  144.     (if (= whereisis 0) (set whereisis "RAM:")) 
  145.  
  146.     (set cdplace (askchoice  (choices (cat whereisis "") (cat wherelibs "")
  147.                                       (prompt (cat #whatcdplace cd "\n"))
  148.                                       (help   (cat #whatcdplace cd "\n"))
  149.                                       (default 0)
  150.                              )
  151.                  )     
  152.     )
  153.   
  154.     (if (= cdplace 0) (set wherecd whereisis))    (if (= cdplace 1) (set wherecd wherelibs))
  155.  
  156.     (if (< (exists (tackon wherecd "BurnIt_Drivers")) 2) (makedir (tackon wherecd "BurnIt_Drivers")) )
  157.     (if (< (exists (tackon wherecd "BurnIt_Drivers/BurnIt_CDRom")) 2) (makedir (tackon wherecd "BurnIt_Drivers/BurnIt_CDRom")) )
  158.  
  159.     (copylib (source "libs/BurnIt_Master.driver") (dest wherecd) (optional "nofail") ) 
  160.     (copylib (source (cat "libs/BurnIt_Drivers/BurnIt_CDRom/" cd "_CDRom.driver")) 
  161.              (dest (tackon wherecd "BurnIt_Drivers/BurnIt_CDRom")) 
  162.              (optional "nofail") 
  163.     ) 
  164.  
  165.    )
  166.   )
  167.  
  168.  
  169.  )
  170. )
  171.  
  172. ;********************************************************************
  173. ; Copy Docs
  174. ;*******************************************************************
  175. (if (IN ToDo 2) 
  176.  (  
  177.   (set wheredocs   (askdir  (prompt #wheredocs)
  178.                             (help   #wheredocs)
  179.                             (default whereisis)
  180.                    )
  181.   ) 
  182.  
  183.   (set guidelanguage "E")
  184.   (if (= @language "deutsch") (set guidelanguage "D"))
  185.  
  186.   (copyfiles (source (cat "IsisPPC_" guidelanguage ".guide")) (dest wheredocs) (infos)) 
  187.  
  188.  )
  189. )
  190.  
  191. ;*********************************************************************************
  192. ; Exit                                                           
  193. ;*********************************************************************************
  194. (set @default-dest (tackon where "IsisPPC"))
  195. (if (> (exists ("c:multiview")) 0) (set #mpath "c:") )
  196. (if (> (exists ("sys:Utilities/multiview")) 0) (set #mpath "sys:Utilities") )
  197. (run (cat "run " #mpath "/multiview " (cat "IsisPPC_" guidelanguage ".guide") ) )
  198. (exit #byebye)
  199.